'ORACLE DATA BASE ......................................................

Dim objConnection As System.Data.SqlClient.SqlConnection;
Dim objCommand As System.Data.SqlClient.SqlCommand;
Dim objDataReader As System.Data.SqlClient.SqlDataReader;
Dim ConnectionString As String;
ConnectionString ="Provider=OraOLEDB.Oracle; Data Source= (DESCRIPTION =(ADDRESS = (PROTOCOL = TCP)(HOST = 192.168.1.35)(PORT = 1521))(CONNECT_DATA =(SERVER = DEDICATED)(SERVICE_NAME = orcl)))User Id= SYSTEM; Password= PasswordSYSTEM18;";

Dim ssql As String;
objConnection = New System.Data.SqlClient.SqlConnection(ConnectionString);
ssql = "select USERNAME from dba_users";

If objConnection.State <> System.Data.ConnectionState.Open Then
     objConnection.Open();
EndIf;
objCommand = New System.Data.SqlClient.SqlCommand(ssql, objConnection);
objDataReader = objCommand.ExecuteReader(System.Data.CommandBehavior.CloseConnection);
  
If objDataReader.HasRows Then
	While objDataReader.Read()
		LogMessage("UserName " + objDataReader("USERNAME").ToString());
	EndWhile;
EndIf;
objDataReader.Close();

'MYSQL DATA BASE ......................................................

Dim myConnection As System.Data.Odbc.OdbcConnection;
Dim myCommand As System.Data.Odbc.OdbcCommand;
Dim myDataReader As System.Data.Odbc.OdbcDataReader;

dim ConnectionString as string;
ConnectionString = "DRIVER={MySQL ODBC 8.0 UNICODE Driver};Server=192.168.1.35;" +
" Database=wincc; User=userwincc;Password=PasswordSYSTEM18;Option=3";

myConnection = New System.Data.Odbc.OdbcConnection(ConnectionString);
myConnection.Open();
'opening the connection
dim myQuery as string;
myQuery = "SELECT * FROM wincc.registros";
myCommand = New System.Data.Odbc.OdbcCommand(myQuery, myConnection);
'executing the command and assigning it to connection
myDataReader = myCommand.ExecuteReader();

If myDataReader.HasRows Then
	LogMessage("MyDataReader Has Rows");
	While myDataReader.Read();
		LogMessage("Value: " + myDataReader("value").ToString());
		'LogMessage("UserName " + myDataReader.Item("USERNAME").ToString());
	EndWhile;
endif;
myDataReader.Close();
myConnection.Close();